﻿Public Class MainForm
    Dim gameInterface As Snake
    Dim info As InfoForm
    Dim explain As GameExplainForm
    Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
        Label1.Text = "速度：" + TrackBar1.Value.ToString()
        Constants.speed = Int(TrackBar1.Value.ToString())
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        gameInterface = New Snake()
        gameInterface.ShowDialog()
    End Sub

    Private Sub 游戏说明ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 游戏说明ToolStripMenuItem.Click
        explain = New GameExplainForm()
        explain.ShowDialog()
    End Sub

    Private Sub 版本信息ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 版本信息ToolStripMenuItem1.Click
        info = New InfoForm()
        info.ShowDialog()
    End Sub
End Class